/*
** $Id: luac.c,v 1.54 2006/06/02 17:37:11 lhf Exp $
** Lua compiler (saves bytecodes to files; also list bytecodes)
** See Copyright Notice in lua.h
*/

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define luac_c
#define LUA_CORE

#include "lua.h"
#include "lauxlib.h"

#include "ldo.h"
#include "lfunc.h"
#include "lmem.h"
#include "lobject.h"
#include "lopcodes.h"
#include "lstring.h"
#include "lundump.h"

#define PROGNAME	"luac"		/* default program name */
#define	OUTPUT		PROGNAME ".out"	/* default output file */

//static int listing=0;			/* list bytecodes? */
//static int dumping=1;			/* dump bytecodes? */
//static int stripping=0;			/* strip debug information? */

//static char Output[]={ OUTPUT };	/* default output file name */
//static const char* output=Output;	/* actual output file name */
//static const char* progname=PROGNAME;	/* actual program name */

//static void fatal(const char* message)
//{
// fprintf(stderr,"%s: %s\n",progname,message);
// exit(EXIT_FAILURE);
//}
//
//static void cannot(const char* what)
//{
// fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno));
// exit(EXIT_FAILURE);
//}
//
//static void usage(const char* message)
//{
// if (*message=='-')
//  fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message);
// else
//  fprintf(stderr,"%s: %s\n",progname,message);
// fprintf(stderr,
// "usage: %s [options] [filenames].\n"
// "Available options are:\n"
// "  -        process stdin\n"
// "  -l       list\n"
// "  -o name  output to file " LUA_QL("name") " (default is \"%s\")\n"
// "  -p       parse only\n"
// "  -s       strip debug information\n"
// "  -v       show version information\n"
// "  --       stop handling options\n",
// progname,Output);
// exit(EXIT_FAILURE);
//}

#define	IS(s)	(strcmp(argv[i],s)==0)

//static int doargs(int argc, char* argv[])
//{
// int i;
// int version=0;
// if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0];
// for (i=1; i<argc; i++)
// {
//  if (*argv[i]!='-')			/* end of options; keep it */
//   break;
//  else if (IS("--"))			/* end of options; skip it */
//  {
//   ++i;
//   if (version) ++version;
//   break;
//  }
//  else if (IS("-"))			/* end of options; use stdin */
//   break;
//  else if (IS("-l"))			/* list */
//   ++listing;
//  else if (IS("-o"))			/* output file */
//  {
//   output=argv[++i];
//   if (output==NULL || *output==0) usage(LUA_QL("-o") " needs argument");
//   if (IS("-")) output=NULL;
//  }
//  else if (IS("-p"))			/* parse only */
//   dumping=0;
//  else if (IS("-s"))			/* strip debug information */
//   stripping=1;
//  else if (IS("-v"))			/* show version */
//   ++version;
//  else					/* unknown option */
//   usage(argv[i]);
// }
// if (i==argc && (listing || !dumping))
// {
//  dumping=0;
//  argv[--i]=Output;
// }
// if (version)
// {
//  printf("%s  %s\n",LUA_RELEASE,LUA_COPYRIGHT);
//  if (version==argc-1) exit(EXIT_SUCCESS);
// }
// return i;
//}

#define toproto(L,i) (clvalue(L->top+(i))->l.p)

//static const Proto* combine(lua_State* L, int n)
//{
// if (n==1)
//  return toproto(L,-1);
// else
// {
//  int i,pc;
//  Proto* f=luaF_newproto(L);
//  setptvalue2s(L,L->top,f); incr_top(L);
//  f->source=luaS_newliteral(L,"=(" PROGNAME ")");
//  f->maxstacksize=1;
//  pc=2*n+1;
//  f->code=luaM_newvector(L,pc,Instruction);
//  f->sizecode=pc;
//  f->p=luaM_newvector(L,n,Proto*);
//  f->sizep=n;
//  pc=0;
//  for (i=0; i<n; i++)
//  {
//   f->p[i]=toproto(L,i-n-1);
//   f->code[pc++]=CREATE_ABx(OP_CLOSURE,0,i);
//   f->code[pc++]=CREATE_ABC(OP_CALL,0,1,1);
//  }
//  f->code[pc++]=CREATE_ABC(OP_RETURN,0,1,0);
//  return f;
// }
//}

//static int writer(lua_State* L, const void* p, size_t size, void* u)
//{
// UNUSED(L);
// return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0);
//}

struct Smain {
 int argc;
 char** argv;
};

//static int pmain(lua_State* L)
//{
// struct Smain* s = (struct Smain*)lua_touserdata(L, 1);
// int argc=s->argc;
// char** argv=s->argv;
// const Proto* f;
// int i;
// if (!lua_checkstack(L,argc)) fatal("too many input files");
// for (i=0; i<argc; i++)
// {
//  const char* filename=IS("-") ? NULL : argv[i];
//  if (luaL_loadfile(L,filename)!=0) fatal(lua_tostring(L,-1));
// }
// f=combine(L,argc);
// if (listing) luaU_print(f,listing>1);
// if (dumping)
// {
//  FILE* D= (output==NULL) ? stdout : fopen(output,"wb");
//  if (D==NULL) cannot("open");
//  lua_lock(L);
//  luaU_dump(L,f,writer,D,stripping);
//  lua_unlock(L);
//  if (ferror(D)) cannot("write");
//  if (fclose(D)) cannot("close");
// }
// return 0;
//}

/*int main(int argc, char* argv[])
{
 lua_State* L;
 struct Smain s;
 int i=doargs(argc,argv);
 argc-=i; argv+=i;
 if (argc<=0) usage("no input files given");
 L=lua_open();
 if (L==NULL) fatal("not enough memory for state");
 s.argc=argc;
 s.argv=argv;
 if (lua_cpcall(L,pmain,&s)!=0) fatal(lua_tostring(L,-1));
 lua_close(L);
 return EXIT_SUCCESS;
}*/
